home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / PASCAL / 1463.ZIP / DRAW-2D.ARC / LEV5OPT.PAS < prev    next >
Pascal/Delphi Source File  |  1986-12-03  |  2KB  |  68 lines
  1. PROCEDURE LEV5OPT;
  2.    VAR
  3.      MSG:SCRLINE;
  4.      KODE:INTEGER;
  5.    BEGIN
  6.      CASE OPTION OF
  7.    0: IF OBJPTR <= MAXSIZE THEN DRAWOBJ  ELSE RING2;
  8.    1: BEGIN   (* BELL *)
  9.         IF (BUTTON1) OR (BUTTON2) THEN
  10.           BEGIN
  11.             IF BELLCODE = 7 THEN BELLCODE := 0 ELSE BELLCODE := 7;
  12.             STATUS1;
  13.           END;
  14.       END;
  15.    2: BEGIN   (* CONT-LIN *)
  16.         IF (BUTTON1) OR (BUTTON2) THEN
  17.           BEGIN
  18.             IF CLIN THEN CLIN := FALSE ELSE CLIN := TRUE;
  19.             STATUS2;
  20.           END;
  21.       END;
  22.    3: BEGIN   (* COLOR *)
  23.         IF (BUTTON1) OR (BUTTON2) THEN
  24.           BEGIN
  25.              MSG := 'Enter Color (0-15) <7> :';
  26.              HRCOLOR := ASKINT(24,2,MSG,0,15,7);
  27.              HIRESCOLOR(HRCOLOR);         (* TURBO-PASCAL PROC *)
  28.              M1 := 2;                     (* HIDE MOUSE *)
  29.              MOUSE(M1,M2,M3,M4);
  30.              REDRAW;
  31.              M1 := 1;                     (* SHOW MOUSE *)
  32.              MOUSE(M1,M2,M3,M4);
  33.           END;
  34.       END;
  35.    4: BEGIN   (* CIRC-SEG *)
  36.         IF (BUTTON1) OR (BUTTON2) THEN
  37.           BEGIN
  38.              MSG := 'Enter Number of Line Segments for Circle (12-360) <60> :';
  39.              NPOLY := ASKINT(24,2,MSG,12,360,60);
  40.              M1 := 2;                     (* HIDE MOUSE *)
  41.              MOUSE(M1,M2,M3,M4);
  42.              REDRAW;
  43.              M1 := 1;                     (* SHOW MOUSE *)
  44.              MOUSE(M1,M2,M3,M4);
  45.           END;
  46.       END;
  47.    5: BEGIN     (* WORLD SIZE *)
  48.         IF (BUTTON1) OR (BUTTON2) THEN
  49.           BEGIN
  50.              MSG := 'Enter Size of World in feet (1-10000) <60> :';
  51.              XWORLD := ASKREAL(24,2,MSG,1.0,10000.0,60.0);
  52.              GRWORLD(0.0,0.0,XWORLD,XWORLD*ASPECT);         (* WORLD CO-ORD *)
  53.              M1 := 2;                     (* HIDE MOUSE *)
  54.              MOUSE(M1,M2,M3,M4);
  55.              REDRAW;
  56.              M1 := 1;                     (* SHOW MOUSE *)
  57.              MOUSE(M1,M2,M3,M4);
  58.           END;
  59.       END;
  60.    6: BEGIN    END;
  61.    7: BEGIN    END;
  62.    8: IF (BUTTON1) OR (BUTTON2) THEN
  63.          BEGIN
  64.            LEV := 1;
  65.            MENU(LEV);
  66.          END;
  67.      END; (*CASE*)
  68.    END;